library(rtichoke)

crosstalk::bscols(widths = c(6, 6),
create_decision_curve(
  probs = params$probs,
  reals = params$reals, 
  size = 400
)|> 
  htmlwidgets::onRender("
    function(el) { 
      el.on('plotly_hover', function(d) { 
        console.log('Hover: ', d); 
      });
      el.on('plotly_click', function(d) { 
        console.log('Click: ', d);
      });
      el.on('plotly_selected', function(d) { 
        console.log('Select: ', d); 
      });
    }
  ")) 
## Warning in crosstalk::bscols(widths = c(6, 6),
## htmlwidgets::onRender(create_decision_curve(probs =
## params$probs, : Too many widths provided to bscols;
## truncating